home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Extra 1996 #6
/
AmigaPlus-eXtra-6-96.iso.7z
/
AmigaPlus-eXtra-6-96.iso
/
programme
/
dust
/
cdeformtut
/
head->bottle
/
head->bottle.bat
< prev
Wrap
DOS Batch File
|
1996-03-22
|
2KB
|
89 lines
load(1,head3)
load(2,bottle3)
set(interpmode,moden)
;start with subgroup 'G1'
.srcSG=1
cdeform(1,2,G$(srcSG),NONE,0.0)
.srcSG=srcSG+1
; bottle-segment 1 - move 5 source-curves
.destSG1=1
.destSG2=2
.steps=5
;move the 2nd curve without control-curves because we have only one
cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,1/steps,0.0)
.srcSG=srcSG+1
;now we always have two control-curves
for(i,2,steps)
.scale=i*1.0/steps
cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,scale,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
.srcSG=srcSG+1
end
; bottle-segment 2 - move 4 source-curves
.destSG1=destSG1+1
.destSG2=destSG2+1
.steps=4
for(i,1,steps)
.scale=i*1.0/steps
cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,scale,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
.srcSG=srcSG+1
end
; bottle-segment 3 - move 5 source-curves
.destSG1=destSG1+1
.destSG2=destSG2+1
.steps=5
for(i,1,steps)
.scale=i*1.0/steps
cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,scale,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
.srcSG=srcSG+1
end
; bottle-segment 4 - move 5 source-curves
.destSG1=destSG1+1
.destSG2=destSG2+1
.steps=5
for(i,1,steps)
.scale=i*1.0/steps
cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,scale,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
.srcSG=srcSG+1
end
; bottle-segment 5 - move 5 source-curves
.destSG1=destSG1+1
.destSG2=destSG2+1
.steps=5
for(i,1,steps)
.scale=i*1.0/steps
cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,scale,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
.srcSG=srcSG+1
end
; bottle-segment 6 - move 5 source-curves
.destSG1=destSG1+1
.destSG2=destSG2+1
.steps=5
for(i,1,steps)
.scale=i*1.0/steps
cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,scale,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
.srcSG=srcSG+1
end
; bottle-segment 7 - move 3 source-curves
.destSG1=destSG1+1
.destSG2=destSG2+1
.steps=3
for(i,1,steps-1)
.scale=i*1.0/steps
cdeforminterp(1,2,G$(srcSG),NONE,G$(destSG1),NONE,G$(destSG2),NONE,scale,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
.srcSG=srcSG+1
end
cdeforminterp(1,2,MAIN,NONE,G$(destSG1),NONE,G$(destSG2),NONE,1.0,0.0,G$(srcSG-1),NONE,G$(srcSG-2),NONE)
save(1,test)